home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / cover page (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  41 lines
  1. 3 ifa>.then160
  2. 4 print"[147]"
  3. 7 goto100
  4. 8 :
  5. 10 sys 828
  6. 20 poke198,0:wait198,1
  7. 30 poke53265,peek(53265)and223
  8. 40 poke53270,peek(53270)and239
  9. 50 poke53272,21
  10. 55 print"[147]"
  11. 60 goto63000
  12. 70 :
  13. 80 :
  14. 90 :
  15. 100 v=53248:s=54272
  16. 110 pokev+32,.:pokev+33,.:print"           [204][207][193][196][211][212][193][210] [206]umber 6"
  17. 120 print" '[212]his month we decided to give humour":print
  18. 130 print"a try.  [204]et us know how you like it!!'":print
  19. 140 print"    <[208]lease don't throw tomatoes!!>   ":print
  20. 150 print"                                 ":print
  21. 155 print"                                                 ":print
  22. 157 print"    [195]over designed by [202]immy [215]eiler.":print""
  23. 160 ifa=.thenprint"[158][204]oading [208]icture":a=1:load"cover 7.p",8,1
  24. 166 ifa=1thena=2:load"unpack.ml300",8,1
  25. 170 s=54272:fori=.to23:pokes+i,0:next:pokes+24,15:pokes+5,255:pokes+6,255
  26. 175 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
  27. 177 pokes+15,3:pokes+7,7:pokes+14,18
  28. 180 print"[145][156][146][208]ress space bar to view cover."
  29. 182 print"[208]ress it again to return to menu."
  30. 185 poke198,0:wait198,1
  31. 190 pokes+4,17:pokes+11,17:pokes+18,17:goto10
  32. 200 :
  33. 300 :
  34. 63000 rem   return back to menu
  35. 63010 pokes+4,16:pokes+11,16:pokes+18,16:poke56,160:clr:poke53281,0
  36. 63020 poke53280,0
  37. 63025 printchr$(14)
  38. 63030 print"[147][204]aunching [212]able of [195]ontents";
  39. 63035 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run"
  40. 63040 poke631,13:poke632,13:poke198,2:end
  41.